
my $flag = "";
while($flag !~ "q")
{
my $input = <STDIN>;

my $string = substr $input,0,14;
print "Result : \n","$string\n";
my $abc = substr $input,14;
$flag =$input;
}